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1. ABSTRACT 

The Tape Quickie Diagnostic is designed to provide a test of 

major register information flow through use of the tape 
maintenance instructions. Also included is an addition test 

(Tape Buffer Added to Tape Accumulator) and a test of the 

shifting of the tape Read-Write Buffer. The Le:ft and Right Switches 
are used to Test Data. 

2. REQUIREMENTS 

2.1 EQUIPMENT 

A) A standard basic PDP-12 

U) A TC-12, PDP-12 lino-tape controller. 

C) A-ASR-33 Teletype or equivalent. 

2.2 PRELIMINARY PROGRAMS 

All PDPrS and 12 mode basic instruction diagnostics, and 
exercisers must have been successfully run prior tO; running 
the program. (The processor should be solid) 

3. LOADING PROCEDURE 
3.1 METHOD 

This program must be loaded with the rim loader. 

A) With the RIM loader program in memory, place the. perforated 
tape which must be in RIM format in the perforated-tape 
reader. 

B) flake sure that the ARS-33 is on line. 

C) Place the starting address 7756 in the left switch register. 

D) Set the right switches to 0000g. 

E) Set the mode switch to 8 mode. 

F) Depress I/O Reset. 

G) Press the Start Left Switches. 

H) Move the reader control switch to START. 
I) Stop- the Reader at the end of the Tape. 



sNSja(-2 


= 


SNSJJ 


= 1 


SNSl 


= 1 


SNS2 


= 1 



STARTING PROCEDURE 

The setting of the left, right and sense switches is not 
critical to the starting procedure. 

A) Set the mode switch to Line Mode 

B) Depress I/O preset. 

C) Depress START 20 

The program is running; consult the listing for test descriptions 
CONTROL SWITCH SETTINGS 

There are 4 optional modes of operation which are determined by 
the sense switches 0-2. They are: 

loop through program 

loop major register tests 

loop addition (TB TO TAC) test 

loop shift read-write buffer test 

Right switches = Data all tests. 

Left switches = Data for TB TAC Test 

If more than one sense switch is depressed at any time, the program 
will loop in the portion of the program affected by the first sense 
switch depressed until such time it is reset. The operator can 
change the setting of the left and right switches from Is to 0s 
and back while the program is running. 

ilAINTENANCE INSTRUCTION SET USED 

CODE MODE OPERATION 

6151 PDP-8 Load maintenance register 

The contents of the processor ACCUMULATOR bits 0, 1, 2, 3, are 
loaded as a command into the maintenace instruction register. 
The command will be executed if and only if the transfer lOT 
6154 is generated. 

6152 PDP-8 Tape register clock 

6154 PDP-8 Transfer 

If you are not familiar with the maintenance instruction lOT's, the 
above list of them and the various functions are included in 
Appendix A. 



ERROR HSIffiS 

In. the ffi9«nfe an eror occurs, the program will halt VEL.th the 
information received from the tape controller in the 
accumulator. This should be compared with the index 
register/registers containing a copy of the bit pattern 
transferred to the tape controller and assocdated: with the 
particular test to determine what bit/bits were dropped or 
picked up. 

ADDITIONAL INFORMATION 

A copy of the RIM loader program is included in Appendix B 
for those not familiar with it. 



APPENDIX A 
TAPE lOT INSTRUCTIONS 



MSC 3 TAG TO AC 

MSC I 3 AC TO TMA SETUP 



lOT 6151 


AC BIT 


FUNCTION 





To Maint Inst Reg 


1 


To Maint Inst Reg 


2 


To Maint Inst .-Reg 


3 


To Maint Inst Reg 


4 


Clear Tape Done 


5 


Skip on Tape Done 


6 


Generate TT0 


7 


Generate TT3 


8 


Simulate Mark Input 


9 


Simulate Data 1 Input 


10 


Simulate Data 2 Input 


11 


Simulate Data 3 Input 

1 . , i 



lOT 6152 


AC BIT 


FUNCTION 







Tape Preset 




1 


Shift RWB 




2 


TB to RWB 




3 


TB + TAC to TAC 




4 


to Tape Word FF 




5 


Set 8 Tape 




6 


Set Unit 1 




7 


Set BKWRD 




8 


Set Write SYNC 




9 


Set 8 Tape MOTN 




10 


Set 8 Write 




11 







APPENDIX A cont 





lOT 




6154 


CONTENTS WAIT 


ACTldN 


ENST 
000 


REG 







A6 TO TB 


000 


1 


AC TO TBN 


0J2fl 





AC TO TAC 


001 


1 


AC TO TMA 


010 


.4 


TMA SETUP TO AC 


010 


1 


TBN TO AC 


011 





TB TO AC 


011 


,. 1 


RWB TO AC 


100 


f0 


MARK WINDOW TO AC 


100 


. 1 


STATES TO AC 


101 


4 


/UNITS + MIN TO AC 


101 


,1 ■ 


TINST TO AC 


110 


'*0 


MISC STATUS 1 TO AC 


110 


; 1 


MICS STATUS 2 TO AC 


111 


J0 


TMA TO AC 


111 


1 


NOT USED 



APPENDIX B 



PROGRAM ~ RIK LOADER 



urogram 


Listing 












Abs. 


Octal 




Tag 


Instruction 


Comments 


I\ddr . 


Contents 
6032 




BEG, 


IZ 




7756 


KCC 




/clear AC and flag 


7757 


6031 






KSF 




/skip if flag = 1 


7760 


5357 






JMP 


.-1 


/looking for char 


7761 


6036 






KRB 




/read buffer 


7762 


7106 






CLL 


RTL 




7763 


7006 






RTL 




/ch8 in AGO 


7764 


7510 






SPA 




/checking for leader 


7765 


5357 






JMP 


BEG+1 


/found leader 


7766 


7006 






RTL 




/OK, ch7 in link 


7767 


6031 






KSF 






7770 


5367 






JMP 


.-1 




7771 


6034 






KRS 




/read, do not clear 


7772 


7420 






SNL 




/checking for address 


7773 


3776 






DCA 


I TEMP 


/store contents 


7774 


3376 






DCA 


TEMP 


/store address 


7775 


5356 






JMP 


BEG 


/next word 


7776 







TEMP 







/temp storage 


7777 


JMP start of bin 












loader 














0001 

0002 

0003 

0004 

0005 

0006 

0007 

0010 

0011 

0012 

00.13 

0014 

0015 

0016 

0017 

0020 ■ 

0021 

0022 

0023 

0024 

0025 

0026 



MAYNARD, MASS, 



»20 

/TPTS - TAPE QUICKIE MAINOEC 12-D0GA-A 

/AUTHOR - WALTER MANTER 

/MAINTAINLR - DIAGNOSTIC GROOP 

/COPYRIGHT 1970, DIGITAL EQUIPMENT CORP,, 

/TESTS MAJOR REGISTER INFORMATION FLOW 

/THROUGH USE OF THE MAINTENANCE INST 

/REGISTERS TESTED IN ORDER ARE: 

/TAC 

/TB 

/RWB 

/TBN 

/TMA 

/TMA SETUP 

/ALSO ADDITION TB+TAC TO TAC 

/ALSO SHIFT or RWB 

/SENSE SWITCHES 0-2 CONTROL tHE MODE OF OPERATION DESIRED 

/SNS 0-2 = LOOP ENTIRE PROGRAM 

/SNS = 1 LOOP REGISTER TRANSFER TESTS 

/SNS 1 =1 LOOP ADDITION TEST (TBTAC) 

/SNS 2 =1 LOOP SHIFT RWB TEST (SHRWB) 

EJECT 



13027 

0030 
kJ0Jl' 
a032 

0035 

0036 

0037 

00'^0 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0050 

0051 

0052 

0053 

0054 

0055 

0056 

0057 

0060 

0061 

0062 

0063 



OOE 



0021 


1020 


0022 


1»300 


0k323 


0500 


0B24 


6151 


0025 


0517 


0026 


1040 


0027 


0010 


0030 


0500 


0031 


6154 


0032 


0011 


0033 


0303 


0034 


1440 


0035 


0010 


0036 


0000 


0037 


0016 



92« 



/TTAC T-EST - TRANSfER CONTENTS OF THE 
/process:-^ AC TO THE TAPE ACCUMULATOR 
/KEAD IT iACK AND TEST FOR DISCREPANCY 
/THE BIT PATTERN IS DETERMINED BY THE 
/LEFT SWITCHES 
/PROCEED TO NEXT TEST IF NO ERROR 



0020 0J11 TTAC, 



CLR 

LOA I 

1030 

lOB 

6151 

LSW 

STA 

10 

lOS 

6154 

CLR 

TAC 

SAE 

10 

HLT 

NOP 

EJECT 



/CLEAR THE AC 

/LOAD THE AC 

/BIT 2 SET 

/EXECUTE IN 8 MODE 

/TRANSFER OF AC TO TAPE MAINTENANCE REGISTER 

/SELECT BIT PATTERN DESIRED WITH LEFT SWITCHES 

/STORE A COPY OF THE BIT PATTERN 

/IN INDEX REG 10 

/EXECUTE IN 8 MODE 

/TRANSFER OF AC TO TAC 

/CLEAR THE AC 

/TRANSFER THE TAC TO THE AC 

/COMPARE THE BIT PATTERN IN THE AC 

/WITH THE COPY JN IR 10 

/ERROR - THE CONTENTS OF THE AC NOT EQUAL TO IR 10 

/CAN INSERT JMP COMMAND TO LOOP TEST 



0064 
0065 
0066 

0067 

0070 

3071 
0072 
0073 
0074 
0075 
0076 
0077 
0100 
0101 
0102 
010;? 
0104 
0105 
0106 
0107 
0110 
0111 
0112 
0113 
0114 
0115 
0116 
0117 
0120 



0040 


0011 


K041 


0500 


0042 


0151 


0043 


0517 


0044 


1040 


0045 


0010 


13046 


0500 


0047 


6155 


0050 


1320 


0051 


3000 


0052 


0500 


0053 


6151 


005 4 


0011 


0055 


0500 


0056 


6154 


0057'- 


1440 


0060 


0010 


0061 


0000 


0062 


0016 



/TB - TRA?mSFER the CONTENTS OF THE 
/PROCESSOR AC TO T-HE TAPE BUFFER 
/READ IT BACK AND TEST FOR DISCREPANCY 
/THE BIT PATTERN IS DETERM I NEO -BY THE 
/LEFT SWITCHES 
/PROCEED TO NEXT TEST IF NO ERRORS 



TB. 



CLR 

JOB 

6151 

LSW 

STA 

10 

lOB 

LOA I 

3000 

lOB 

6151 

CLR 

lOB 

6154 

SAE 

10 

HLT 

MOP 

EJECT 



/CLEAR THE AC 

/EXECUTE IN 8 MODE 

/TRANSFER OF CLEARED AC TO MAINTENANCE REGISTER 

/SELECT BIT PATTERN DESIRED WITH LEFT SWITCHES 

/STORE A COPY OP BIT PATTERN 

/in' IR 10 

/EXECUTE IN 8 MODE 

/tBi^NlFEP IJF AC Tp TB 

/Lbiiti Yhe AC 

■/BITS 1 AND 2 SET 

/EXECUTE IN 8 MODE 

/TRANSFER OF AC TO MAINTENANCE REGISTER 

/CLEAR THE AC 

/EXECUTE IN 8 MODE 

/TRANSFER OF TB TO AC 

/COMPARE THE BIT PATTERN IN THE AC 

/WITH THE ORIGIONAL BIT PATTERN IN IR 10 

/ERROR - CONTENTS OF AC NOT EQUAL TO IR 10 

/CAN INSERT JMP COMMAND TO LOOP TEST 



0121 
0122 
0123 
0124 

ai25 
ai26 

0130 
0131 
0132 
0133 
0134 
3131 

013b 

0137 

0140 

yi42 

0143 
0144 
0145 
0146 
0147 
0150 
0151 
0152 
0153 
0154 
0155 
0156 
0157 
0160 
0161 
0162 
0163 
0164 
0165 



DZ63 


0011 


ec64 


0500 


^265 


6151 


C266 


0517 


B067 


1040 


iZTi 


0010 


•Z.Zll 


0500 


ZZ72 


6154 


t^Tl 


1020 


Zi7A 


1000 


ZiTi 


3500 


mib 


6152 


0077 


1020 


0100 


3400 


0101 


0500 


0102 


6151 


0103 


0011 


0104 


0500 


0105. 


6154 


0106* 


1440 


0107 


0010 


0110 


0000 


2111 


0016 



/RWB - TRANSFER CONTENTS OF PROCESSOR 

/AC TO TAPE SUFFER 

/TRANSFER TAPE BUFFER TO 

/TAPE «EaD write buffer 

/TRANSFER TAPE READ WRITE BUFFER TO 

/PR0SCES50R AC 

/TEST BIT PATTERN REClEVED FOR DISCREPANCY 

/THE BIT PATTERN IS DETERMINED BY THE 

/LEFT SWITCHES 

/IF NO ERRORS CONTINUE TO NEXT TEST 



RWB. 



CLR 

lOB 

6151 

LSW 

STA 

10 

I OB 

6154 

LDA I 

1000 

lOB 

6152 

LOA I 

3400 

lOB 

6151 

CLR 

lOB 

6154 

SAE 

10 

HlT 

NOP 

EJECT 



/CLEAR THE AC 

/EXECUTE IN 8 MODE 

/TRANSFER OF CLEARED AC TO MAINTENANCE REGISTER 

/SELECT BIT PATTERN DESIRED WITH LEFT SWITCHES 

/STORE A COPY OF SIT PATTERN 

/IN IR 10 

/EXECUTE IN 8 MODE 

/TRANSFER OF AC TO TAPE BUFFER 

/LOAD THE AC 

/BIT 2 SET 

/EXECUTE IN B MODE 

/TRANSFER OF TB TO RWB 

/LOAD THE AC 

/BITS 1. 2 AND 3 SET 

/EXECUTE IN 8 MODE 

/TRANSFER OF AC TO TAPE MAINTENCE REGISTER 

/CLEAR THE AC 

/EXECUTE IN 8 MOOE 

/TRANSFER OF RWB TO AC 

/COMPARE THE BIT PATTERN IN THE AC 

/WITH THE ORIGIONAL BIT PATTERN IN IR 10 

/ERROR - CONTENTS OF AC NOT EQUAL TO IR 10 

/CAN INSERT JMP COMMAND TO LOOP TEST 



0166 
B167 
0170 
0171 
0172 
0173 
0174 
0175 
0176 
0177 
0200 
0201 
0202 
0203 
0204 
0209 
0206 
0207 
0210 
0211 
0212 
0213 
0214 
0215 
0216 
0217 
0220 
0221 
0222 
0223 
0224 



0112 
0113 

0114 
0115 
0116 
13117 
0120 
01^1 
k3122 
0123 
0124 
0125 
0126 
0127 
0130 
0131 
0132 
0133 
0134 
0135 
0136 



k)Dll 
1220 

0400 

6151 
3517 

1040 

301!i) 
i?500 
6154 
1020 
2400 
0500 
6151 
0011 
0500 
6154 
1440 
0010 
0000 
0016 



/TBN - TRANSFER CONTENTS OF PROCESSOR 

/AC TO Tape block number register (Tbn) 

/HEAD IT SACK AND TEST FOH DISCREPANCY 
/THE BIT- PATTERN IS DETERMINED BY THE 
/LEFT SWITCHES 
/PROCEED TO NEXT TEST IF NO ERROR 



TBN, 



CLR 

LDA I 

400 

lOB 

6151 

LSW 

STA 

la 

106 

6154 

LDA I 

2400 

lOB 

6151 

CLR 

I OB 

6154 

SAE 

10 

HLT 

NOP 

EJECT 



/CLEAR THE AC 

/LOAD THE AC 

/BIT 3 SET 

/EXECUTE TAPE MAINTENANCE INSTRUCTION IN 8 MODE 

/TRANSFER OF AC TO TAPE MAINTENANCE REGISTER 

/SELECT BIT PATTERN DESIRED WITH LEFT SWITCHES 

/STORE A COPY OF BIT PATTERN 

/SELECTED IN |R 10 

/EXECUTE TAPE MAINTENANCE INSTRUCTION IN 8 MODE 

/TRANSFER OF AC TO TBN 

/LOAD THE AC 

/BITS 1 AND 3 SET 

/EXECUTE IN 3 MODE 

/TRANSFER OF AC TO TAPE MAINTENANCE REGISTER 

/CLEAR THE AC 

/EXECUTE IN 8 MOINTENANCE INSTRUCTION IN 8 MODE 

/TRANSFER OF TBN TO AC 

/COMPARE THE BIT PATTERN IN THE AC 

/WITH THE ORIGIONAL BIT PATTERN IN IR 10 

/ERROR - AC NOT EQUAL TO IR 10 

/CAN INSERT JMP COMMAND TO LOOP TEST 



0225 

0226 

0227 

02id 

02^51 

0232 

02^3 

0234 

0235 

0236 

0237 

0240 

0241 

0242 

0243 

0244 

0245 

0246 

0247 

0250 

0251 

0252 

0253 

0254 

0255 

0256 

0257 

0260 

0261 

0262 

0263 



3137 


0011 


0140 


li^20 


ai4i 


1400 


0142 


0500 


0143 


6151 


3144 


0517 


0145 


1040 


0146 


0010 


0147 


0500 


3150 


6154 


0151 


1020 


0152 


7300 


0153 


^500 


.U54 


6151 


0155 


0011 


0156 


0500 


0157 


6154 


0160 


1440 


3161 


0010 


0162 


0000 


2163 


3016 



/TTMA - TRANSFER CONTENTS OF PROCESSOR 
/AC TO TAPE MEMORY ADDRESS REGISTER (TMA) 
/READ IT BACK AND TEST FOR DISCREPANCY 
/THE BIT PATTERN IS DETERMINED BY THE 
/LEFT SWITCHES 
/PROCEED TO NEXT TEST IF NO ERRORS 



TTMA, 



CLR 

LOA I 

1400 

lOB 

6151 

LSW 

STA 

10 

lOB 

6154 

LDA I 

7000 

I OB 

6151 

CLR 

lOB 

6154 

SAE 

10 

HLT 

NOP 

EJECT 



/CLEAR THE AC 

/LOAD THE AC 

/BITS 1 AND 3 SET 

/EXECUTE IN 8 MODE 

/TRANSFER OF AC TO TAPE MAINTENANCE REGISTER 

/SELECT BIT PATTERN DESIRED WITH LEFT SWITCHES 

/STORE A COPY OF THE BIT PATTERN 

/SELECTED IN IR 10 

/EXECUTE IN 8 MODE 

/TRANSFER OF AC TQ TMA 

/LOAD THE AC 

/BITS 0» 1 AND 2 SET 

/EXECUTE IN 8 MODE 

/TRANSFER OF AC TO TAPE MAINTENANCE REGISTER 

/CLEAR THE AC 

/EXECUTE IN 8 MODE 

/TRANSFER OF TMA TO AC 

/COMPARE THE BIT PATTERN IN THE AC 

/WITH THE ORIGIONAL BIT PATTERN IN IR 10 

/ERROR - AC NOT EQUAL TQ IR 10 

/CAN INSERT JMP COMMAND TO LOOP TEST 



?:2bA 
0265 
^256 
?267 
Z27C 
i!2 71 
,T272 
0273 
0274 
0275 
2276 
0277 
15300 
0321 
0302 
0303 
0304 
0305 
0306 
0307 
0310 
0311 
0312 
0313 
0314 
0315 
0316 



0164 


0011 


0165 


3517 


i'166 


1040 


(.1167 


0010 


i-170 


0023 


am 


1020 


i)172 


2000 


0173 


0500 


ei74 


6151 


0175 


0011 


i?176 


0500 


0177 


6154 


0200 


1440 


0201 


0010 


0202 


0000 


0203 


0460 


0204 


6020 



/TMAS - TRANSFER CONTENTS OF PROCESSOR 
/AC TO Tf'.A SETUP REGISTER (TMAS) 
/READ IT aACK AND TEST FOR DISCREPANCY 
/THE BIT PATTERN JS DETERMINED BY THE 
/LEFT SNITCHES 
/PROCEED TO NEXT TEST IF NO ERRORS 



TMAS, 



I 



CLR 

LSW 

STA 

10 

TMA 

LDA;; 

20.00 

lOB 

6151 

CLR 

lOB 

6154 

SAE 

10 

HLT 

SNS 

JMP TTAC 



I 



/CLEAR THE AC 

/SELECT BIT PATTERN DESIRED WITH LEFT SWITCHES 

/STORE A COPY OF THE BIT PATTERN 

/SELECTED IN INDEX REGISTER 10 

/TRANSFER AC TO TMA SETUP REGISTER 

/iOAD, THE- AC 

/B:If»"liSET« :> ■•^»..,> 

/EXECUTE IN 8 MODE 

/TRANSFER OF AC TO TAPE MAINTENANCE REGISTER 

/CLEAR THE AC 

/EXECUTE IN 8 MODE 

/TRANSFER OF TMA SETUP REGISTER TQ AC 

/COMPARE THE BIT PATTERN IN. THE AC 

/WITH THE COPY IN INDEX REGISTER 10 

/ERROR - THE CONTENTS OF THE AC NOT EQUAL TO IR 10 

/IS SENSE SWITCH SET 

/NO LOOP THROUGH ALL PREVIOUS TESTS AGAIN 



EJECT 



0317 






0.520 






0321 






0322 






B3 23 






0324 






i<532l? 






B326 






0327 






2330 






0331 






0332 






0333 






0334 






0335 






B336 






0337 






0340 






0341 






0^42 






0343 


0205 


0011 


0344 


0206 


3500 


0345 


0207 


6151 


0346 


0210 


0517 


0347 


0211 


1040 


0350 


0212 


0010 


0351 


0213 


0500 


0352 


0214 


6154 


0353 


0215 


1020 


0354 


0216 


1000 


0355 


0217 


0500 


0356 


0220 


6151 


0357 


0221 


0516 


0360 


0222 


1040 


0361 


0223 


0011 


0362 


0224 


0500 


0363 


0225 


6154 


0364 


0226 


1200 


0365 


0227 


. 0010 


0366 


0230 


1040 


0367 


0231 


0012 


0370 


0232 


1020 


0371 


0233 


t!4 00 


0372 


0234 


f500 


0373 


0235 


0152 


0374 


0236 


?i311 


0375 


0237 


13303 


0376 


0240 


1440 


0377 


0241 


i-J^12 


e4 00 


0242 


■J-1did 


LMai 


/i243 


J461 


2 402 


;i24 4 


6 2k15 


?4'^3 






t^ 4 d 4 







/TBTAC - ENTER TEST IF SENSE SWITCH 

/0 IS NOT DEPRESSED 

/TRANSFER CONTENTS OF PROCESSOR AC 

/AS OETESNINED BY THE LEFT SWITCHES 

/TO THE TAPE BUFFER (TB) 

/THEN TRAi\SFER CONTENTS OF PROCESSOR AC 

/AS DETERMINED BY THE RIGHT SWITCHES 

/TO THE TAPE ACCUMULATOR (TAC) 

/NOW ADDITION OF TB TO TAC IS DONE 

/THE SUM IS READ BACK AND TESTED FOR 

/DISCREPANCY AGAINST A COMPUTED SUM 

/STORED IN INDEX REGISTER 12 

/IF THERE ARE ANY ERRORS THE PROGRAM 

/WILL HALT 

/IF SENSE SWITCH 1 IS DEPRESSED 

/THE PROGRAM WILL LOOP ON THIS TEST 

/OTHERWISE IT WILL CONTINUE WITH THE 

/NEXT TEST 



TBTAC, 



CLR 

lOB 

6151 

LSW 

STA 

10 

lOB 

6154 

LDA I 

1000 

lOB 

6151 

RSW 

STA 

11 

JOB 

6154 

LAM 

10 

STA 

12 

LDA I 

400 

I OB 

61U2 

CLR 

TAC 

SAE 

12 

HLT 

S,nS 

JMP 



I 1 
TBTAC 



/CLEAR The AC 

/EXECUTE IN 8 MODE 

/TRANSFER OF AC TO THE TAPE MAINTENANCE REGISTER 

/SELECT TB BIT PATTERN DESIRED WITH THE LEFT SWITCHES 

/STORE A COPY OF TB BIT PATTERN SELECTED ""' ' ^»^^ 

/IN INDEX REGISTER 10 

/EXECUTE IN 8 MODE 

/TRANSFER OF AC TO TB 

/LOAD THE AC 

/BIT 2 SET 

/EXECUTE IN 8 MODE 

/TRANSFER OF AC TO TAPE MAINTENANCE REGISTER 

/SELECT TAC BIT PATTERN DESIRED WITH THE RIGHT SWITCHES 

/STORE A COPY OF TAC BIT PATTERN SELECTED 

/IN INDEX REGISTER 11 

/EXECUTE IN 8 MODE 

/TRANSFER OF AC TO TAC 

/ADD THE CONTENTS OF INDEX REGISTER 10 

/TO THE AC (2S COMPLEMENT ADDITION) 

/STORE THE COMPUTED SUM OF TB ADDED TO TAC 

/IN INDEX REGISTER 12 

/LOAD THE AC 

/BIT 3 SET 

/EXECUTE IN 8 MODE 

/THE TB IS ADDED TO THE TAC AND THE SUM IS IN THE TAC 

/CLEAR THE AC 

/TRANSFER THE TAC TO THE AC 

/COMPARE THE BIT PATTERN IN THE AC 

/WITH THE COMPUTED SUM IN INDEX REGISTER 12 

/ERROR - THE CONTENTS OF THE AC NOT EQUAL TO IR 12 

/IS SENSE SWITCH 1 DEPRESSED 

/YES LOOP TBTAC TEST AGAIN 



EJECT 



04^5 

0406 /SHRWB - ENTER TEST IF SENSE SWITCH 

0407 /I IS NOT DEPRESSED 

0413 /TRANSFER CONTENTS OF PROCESSOR 

0411 /AC TO TAPE BUFFER (TB) 

0412 /THEN TAPE BUFFER IS TRANSFERRED TO READ WRITE BUFFER (RWB) 

0413 /THE READ WRITE BUFFER IS NOW SHIFTED 

0414 /ONE BIT POSITION AND ITS CONTENTS READ 

0415 /BACK TO THE AC AND COMPARED WITH A 

0416 /SIMULATED SHIFT IN THE PROCESSOR 

0417 /IF AN ERROR OCCURS THE PROGRAM WILL HALT 

0420 /THE THREE BUS SHIFTED OUT FROM UNDER 

0421 /THE READ WRITE HEAD ARE MASKED OUT AS 

0422 /THEY COULD BE EITHER SET OR RESET 

0423 /IF SENS SWITCH 2 IS DEPRESSED VOU WILL 

0424 /LOOP THIS TEST OTHERWISE YOU WILL GO 

0425 /BACK TO THE BEGINNING OF THE PROGRAM 

0426 /AND START THROUGH AGAIN. 
0427 

0433 024P iidll SHRWB, CLR /CLEAR THE AC 

0431 0246 0500 JOB /EXECUTE IN 8 MODE 

0432 -0247 6151 6151 /AC-MAIN REG 

0433 0250 0517 LSW /SELECT BIT PATTERN DESIRED FROM THE RIGHT SWITCHES 

0434 0251 ?500 lOB /EXECUTE IN 8 MODE 

0435 0252 6154 6154 /TRANSFER OF AC TO TB 

0436 0253 0261 HOL I 1 /ROTATE RIGHT ONE PLACE MSB LOST 

0437 0254 1360 BCL I /CLEAR OUT BITS THAT WILL BE SHIFTED IN FROM TAPE READ HEAD 

0440 t;255 0421 0421 /BITS 3, 7 AND 11 

0441 0256 1040 STA /STORE A COPY OF THE BIT PATTERN 

0442 0257 0010 10 /IM INDEX REGISTER 10 

0443 0260 1020 LDA I /LOAD THE AC 

0444 0261 1000 1000 /BIT 2 SET 

0445 0262 0500 lOB /EXECUTE IN B MODE 

0446 0263 5152 6152 /TRANSFER OF TB TO RWB 

0447 0264 1020 IDA I /LOAD THE AC 

0450 B265 2300 2000 /BIT 1 SET 

0451 k;266 0500 lOB /EXECUTE IN 8 MODE 

0452 0267 6152 6152 /SHIFT RWB 

0453 0270 1020 LDA I /LOAD THE AC 

0454 0271 3400 3400 /BITS 1, 2 AND 3 SET 

0455 0272 0500 . lOB /EXECUTE IN 8 MODE 

0456 0273 6151 6151 /TRANSFER AC TO TAPE MAINTENANCE REGISTER 

0457 2274 3311 CLR /CLEAR THE AC 

0460 3275 ;a500 IQB /EXECUTE IN 8 MODE 

0461 ?276 6154 6i54 /TRANSFER OF RWB TO AC 

0462 3277. 1560 BCL I /CLEAR OUT BITS THAT WERE UNDER THE READ WRITE HEAD 

0463 3300 3421 0421 /BITS 3» 7 AND 11 

0464 3^01 1443 SAE /COMPARE THE BIT PATTERN IN THE AC 

0465 3332 3313 13 /WITH THE 0RI6I0NAL BIT PATTERN STORED IN INDEX REG 10 

3466 3303 i:^dd ^.LT /ERROR - CONTENTS OF AC NOT EQUAL TO INDEX REGISTER 10 

3467 3304 3462 SNS 12 /IS SENSE SWITCH 2 DEPRESSED 
0470 3305 624:j j^p SHRWB /YES LOOP THIS TEST 

3471 3536 5323 j'-'P TTAC /NO LOOP BACK TO BEGINNING OF PROGRAM AGAIN 



00i30 ERRORS 



RWB 


4H63 


SHRWB 


4<;45 


TB 


4010 


TBN 


4112 


TBTAC 


420': 


TMAS 


4164 


TTAC 


4021' 



